home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (Latin America) Volume 1 #6 / CD-ROM Today 6 Latam.iso / referenc / evol / database.dxr / 00093_CNZ.ls < prev    next >
Encoding:
Text File  |  1996-11-08  |  469 b   |  19 lines
  1. on CheckNarrativeZones
  2.   global gNarraNumList, gNarraList, gNextArticle
  3.   set ReturnVal to 0
  4.   repeat with K = 0 to 3
  5.     if rollOver(K + gNarraButtonsCh()) then
  6.       DBfingerCursor()
  7.       set NNum to K + 1
  8.       set mypos to getPos(gNarraNumList, NNum)
  9.       if mypos then
  10.         set Pair to getAt(gNarraList, mypos)
  11.         set gNextArticle to getAt(Pair, 2)
  12.         set ReturnVal to 1
  13.       end if
  14.       exit repeat
  15.     end if
  16.   end repeat
  17.   return ReturnVal
  18. end
  19.